perm filename PRINT[TEX,ALS] blob
sn#600065 filedate 1981-07-15 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 PROCEDURE PRINTA(P,SIZE: INTEGER)
C00004 ENDMK
Cā;
PROCEDURE PRINTA(P,SIZE: INTEGER);
VAR R : INTEGER
BEGIN
PRINTLN(141); PRINTINT(P); (* NODE *)
PRINT(137); PRINTINT(SIZE); (* NODESIZE= *)
FOR R:=12130 TO 12160 DO BEGIN
IF MEM[R].TWOHALVES.RHWORD = 65535 THEN BEGIN
PRINTLN(141); PRINTINT(R); (* NODE *)
PRINT(352); PRINTINT(MEM[R+1].TWOHALVES.RHWORD); (* SIZE *)
PRINT(138); PRINTINT(MEM[R].TWOHALVES.LHWORD); (* RLINK= *)
PRINT(156); (* -> *)
IF (MEM[R].TWOHALVES.LHWORD)<25000 THEN BEGIN
PRINTINT(MEM[MEM[R].TWOHALVES.LHWORD+1].TWOHALVES.LHWORD);
PRINT(164); PRINTINT(MEM[R+1].TWOHALVES.LHWORD); (* ... *)
PRINT(156); (* -> *)
IF (MEM[R+1].TWOHALVES.LHWORD)<25000 THEN BEGIN
PRINTINT(MEM[MEM[R+1].TWOHALVES.LHWORD].TWOHALVES.LHWORD);
END;
END;
END;